object frmSubjectDefine: TfrmSubjectDefine
  Left = 402
  Top = 183
  Caption = #31185#30446#23383#20856
  ClientHeight = 350
  ClientWidth = 554
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 554
    Height = 25
    Align = alTop
    Alignment = taLeftJustify
    BevelOuter = bvNone
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 302
    Width = 554
    Height = 48
    Align = alBottom
    Alignment = taLeftJustify
    BevelOuter = bvNone
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 12
      Width = 36
      Height = 12
      Caption = #32423#27425#65306
    end
    object Button3: TButton
      Left = 184
      Top = 8
      Width = 75
      Height = 25
      Caption = #23548#20986'Excel'
      TabOrder = 0
      OnClick = Button3Click
    end
    object BitBtn1: TBitBtn
      Left = 272
      Top = 8
      Width = 73
      Height = 25
      Cancel = True
      Caption = #36820#22238
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
        F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
        000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
        338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
        45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
        3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
        F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
        000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
        338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
        4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
        8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
        333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
        0000}
      NumGlyphs = 2
      TabOrder = 1
      OnClick = BitBtn1Click
    end
    object edtLevel: TcxSpinEdit
      Left = 52
      Top = 8
      Properties.MaxValue = 10.000000000000000000
      Properties.MinValue = 1.000000000000000000
      Properties.OnChange = edtLevelPropertiesChange
      TabOrder = 2
      Value = 1
      Width = 41
    end
  end
  object MainDataGrid: TcxGrid
    Left = 0
    Top = 25
    Width = 554
    Height = 277
    Align = alClient
    TabOrder = 2
    object MainDataGridDBTableView1: TcxGridDBTableView
      Navigator.Buttons.CustomButtons = <>
      DataController.DataSource = dsSubject
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.ColumnAutoWidth = True
      OptionsView.GroupByBox = False
      Styles.Background = MainDM.bslBackGroup
      Styles.ContentEven = MainDM.bsEven
      Styles.ContentOdd = MainDM.bsOdd
      Styles.Footer = MainDM.bsTitle
      Styles.Header = MainDM.bsTitle
      Styles.Selection = MainDM.bsSelect
      object MainDataGridDBTableView1subcode: TcxGridDBColumn
        DataBinding.FieldName = 'subcode'
        HeaderAlignmentHorz = taCenter
      end
      object MainDataGridDBTableView1subname: TcxGridDBColumn
        DataBinding.FieldName = 'subname'
        HeaderAlignmentHorz = taCenter
      end
      object MainDataGridDBTableView1dcname: TcxGridDBColumn
        DataBinding.FieldName = 'dcname'
        HeaderAlignmentHorz = taCenter
      end
      object MainDataGridDBTableView1asscheckname: TcxGridDBColumn
        DataBinding.FieldName = 'asscheckname'
        HeaderAlignmentHorz = taCenter
      end
    end
    object MainDataGridLevel1: TcxGridLevel
      GridView = MainDataGridDBTableView1
    end
  end
  object dsSubject: TDataSource
    DataSet = qrySubject
    Left = 104
    Top = 240
  end
  object qrySubject: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      
        'select * from tfd_subject where sublevel<=:sublevel order by sub' +
        'code')
    OnCalcFields = qrySubjectCalcFields
    Left = 64
    Top = 240
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'sublevel'
        Value = nil
      end>
    object qrySubjectsubcode: TStringField
      DisplayLabel = #31185#30446#32534#30721
      FieldName = 'subcode'
    end
    object qrySubjectsubkind: TWordField
      FieldName = 'subkind'
    end
    object qrySubjectsublevel: TWordField
      FieldName = 'sublevel'
    end
    object qrySubjectdcname: TStringField
      DisplayLabel = #26041#21521
      FieldKind = fkCalculated
      FieldName = 'dcname'
      Calculated = True
    end
    object qrySubjectasscheckname: TStringField
      DisplayLabel = #36741#21161#26680#31639
      DisplayWidth = 26
      FieldKind = fkCalculated
      FieldName = 'asscheckname'
      Size = 26
      Calculated = True
    end
    object qrySubjectkindname: TStringField
      FieldKind = fkCalculated
      FieldName = 'kindname'
      Calculated = True
    end
    object qrySubjectisdebit: TBooleanField
      FieldName = 'isdebit'
    end
    object qrySubjectdofmoney: TBooleanField
      FieldName = 'dofmoney'
    end
    object qrySubjectdoproject: TBooleanField
      FieldName = 'doproject'
    end
    object qrySubjectdodept: TBooleanField
      FieldName = 'dodept'
    end
    object qrySubjectsubname: TWideStringField
      DisplayLabel = #31185#30446#21517#31216
      FieldName = 'subname'
      Size = 60
    end
  end
end
